home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs55.d81
/
snerd.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
11KB
|
306 lines
1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=37
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
305 UH=1:PRINT" M E N U"
310 PRINT" --------------------------------"
315 PRINT" 1. BEGIN SNERD
320 [153]" 2. STUDENT INSTRUCTIONS"
325 [153]" 3. TEACHER INSTRUCTIONS"
330 [153]" 4. QUIT"
335 [153]" --------------------------------"
340 [153]" PRESS A NUMBER KEY (1-4) ";
345 UL[178]1:US$[178]"1234"
347 [141]35:US$[178]""
350 [145][197](UR$)[141]1000,400,500,390
355 [137]300
370 [139]UZ[178]1[167][158]UP%:[137]155
375 [142]
390 [158]UE:[153]"CONTLOAD":[139]UW[178]0[167][151]UY,6:[151]UX,14:[158]UU,14
395 [156]:[128]
400 [153]"LOAD":[151]UT,UL%:[139]UW[178]0[167][151]UY,11:[151]UX,12
405 UT$[178]" (null)NERD":UH[178]1:UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
420 [153]" (null)HIS PROGRAM ASKS YOU TO
430 PRINT" TYPE IN WHAT YOUR CREATURE LOOKS
440 [153]" LIKE. (null)HEN THE COMPUTER WILL"
450 [153]" TELL YOU A STORY ABOUT IT."
455 [153]" ATNFTER EACH ENTRY PRESS < (null)VAL(null)(null)(null)(null) >.
460 PRINT" [212]HIS PROGRAM ALLOWS YOU TO USE YOUR"
465 PRINT" IMAGINATION TO DESCIBE A CREATURE."
470 PRINT" [217]OU WILL ALSO DRAW A PICTURE OF YOUR
475 [153]" CREATURE."
485 [141]835:[141]850:[141]2200:[141]835
490 [139]UZ[178]1[167][158]UP%:[137]155
495 [142]
500 [153]"LOAD":[151]UT,UL%:[139]UW[178]0[167][151]UY,2:[151]UX,10
501 UT$[178]" (null)NERD":UH[178]1:UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
502 [153]" (null)O THE BEST OF OUR KNOWLEDGE,"
503 [153]" THIS PROGRAM IS IN THE PUBLIC"
504 [153]" DOMAIN. RIGHT$F THIS IS NOT TRUE,"
505 [153]" PLEASE CONTACT:"
506 [153]" LEN(null)(null)(null)(null)STR$(null)(null)VALCLOSEPEEK(null)(null)RIGHT$(null)VAL(null)(null)CLOSE(null)ATNLENLEFT$RIGHT$(null)VAL(null)"
507 [153]" 3370 (null)HARMACY ATNVE.
508 PRINT" [193]GINCOURT, [207]NTARIO"
509 PRINT" [195]ANADA, [205]1[215] 2[203]4"
510 PRINT" (416) 499-4292"
511 UH=1:GOSUB835:GOSUB850
512 PRINT" [208]ROGRAM [206]AME: [211]NERD
513 [153]" (null)RITTEN BY : (null)(null)(null) (null)OFTWARE
514 PRINT" [210]EVISED BY : [211]. [194]EST"
515 PRINT" [212]HIS PROGRAM WILL RUN ON ANY
516 [153]" PEEKATN(null)RIGHT$LENCLOSE2.0 (null)VAL(null) LENOMPUTER
517 PRINT" [194][193][211][201][195] 4.0 [208][197][212][160][195]OMPUTER
518 [153]" 8032 LENPEEK(null) LENOMPUTER
519 PRINT" [195]OMMODORE 64 [195]OMPUTER
520 [141]835:[141]850
523 [153]" (null)HIS PROGRAM ALLOWS THE":[153]
524 [153]" STUDENT TO USE HIS/HER":[153]
530 [153]" IMAGINATION TO CREATE A" :[153]
540 [153]" CREATURE. (null)HE STUDENT WILL" :[153]
550 [153]" HAVE ANOPPORTUNITY TO DRAW" :[153]
560 [153]" HIS/HERCREATURE ON PAPER." :[153]
570 [153]" ATNFTER THIS THE COMPUTER":[153]
572 [153]" WRITES A SHORT STORY ABOUT" :[153]
578 [153]" THE CREATURE.":[153]
585 [141]835:[141]850:[141]2400:[141]835
590 [139]UZ[178]1[167][158]UP%:[137]155
595 [142]
700 [153]UC$"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032
705 PRINT" LOAD THE 'CBM 4032' PROGRAM":END
800 PRINT"[147]";:POKEUT,UU%:IFUW=0THENPOKEUY,1:POKEUX,6
801 FORI=1TO38:PRINT" [146]";:NEXT
802 FORI=1TO22:PRINT"[157] [146]";:NEXT
803 FORI=1TO37:PRINT"[157][157] [146]";:NEXT
804 FORI=1TO22:PRINT"[145][157] [146]";:NEXT
805 PRINT""TAB(11)"[169] [205] [206] [205] [223]"
806 PRINTTAB(11)" [146][180] [170] [180][146][161] [146][180] [170] "
807 PRINTTAB(11)" [146][180] [170] [180] [146] [223] [223][180] [146][169]
808 [153][163]11)" WAITSGN + SGNWAITGET + SGNWAITGET
809 PRINTTAB(11)"[223] [146][169][180] [205] [146][169][180][146][161]
810 [153]""[163]11)"ONTARIO":[153][163]11)"EDUCATIONAL
811 PRINTTAB(11)"SOFTWARE": PRINTTAB(11)"PROJECT":PRINTTAB(11)"1983
812 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT"UC$:UI[178]0
813 [161]UI$:[139]UI$[179][177]" "[167]UI[178]UI[170]1:[139]UI[179]250[167]813
814 [137]300
835 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
855 [153]" --------------------------------------"
860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"HELP - PRESS H <RETURN>"
865 UH[178]0:[153]"":[142]
875 [153][200](UD$,24);" ONE MOMENT PLEASE... ":[142]
900 UX$[178]"H":US[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UB[178]1024:UD[178]1084:UE[178]1105
901 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1158:UN[178]158:[151]50003,0:UW[178][194](50003):UF[178][194](53)
902 [139]UW[178]0[167]US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
903 [139]UW[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:[139]UW[178]0[167]UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]" "
909 [142]
910 [141]900:[153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
915 [139][194](US[170]40)[179][177]96[167]700
920 [139]([184](0)[171]([180]([184](0))[179]0)[172]65536)[177]500[167]935
925 [153]UC$"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
930 [153]"MEMORY TO RUN THIS PROGRAM !":[158]UE:[128]
935 [153]"LOAD"UC$:[139]UW[178]0[167]965
940 [139]UF[178]60[176]UF[178]108[176]UF[178]124[167]950
945 [151]52,0:[151]53,UF[171]4:[156]:[141]900
950 [139]UW[178]160[167][151]1103,88:[151]1104,228:[151]1107,85:[151]1111,228:[137]965
955 [139]UW[179][177]1[167][153]"LOADTHIS PGM WILL NOT WORK ON THIS MACHINE!":[158]UE:[128]
960 [151]1103,49:[151]1104,230:[151]1107,46:[151]1111,230:[137]965
965 [158]UD
970 [141]800:[137]300
1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0
1001 [153]"LOAD"UC$;:[140]:[139]UW[178]0[167][151]UY,6:[151]UX,14
1010 UT$[178]""
1280 [143]********************************
1290 [143]* MODIFICATIONS MADE BY *
1300 [143]* CARY LEWIS AND HIN JANG *
1310 [143]********************************
1320 [143] * SNERD *
1330 [143] *
1340 [143] * CREATED BY NTS SOFTWARE *
1350 [143] * 680 N. ARROWHEAD AVENUE *
1360 [143] * RIALTO, CALIF. 92376 *
1370 [143] * PHONE (714) 875-2968 *
1380 [143] *
1390 UG$[178]"(null)NERD":UP[178]0:[141]850
1400 [151]UT,UL%
1410 [153]" (null)E ARE GOING TO CONSTRUCT"
1420 [153]:[153]" A CREATURE. (null)LEASE";
1430 [153]" ANSWER":[153]:[153]"MY QUESTIONS ABOUT YOUR "
1440 [153]: [153]" CREATURE.":[153]:[153]" (null)OU MAY MAKE IT";
1450 [153]" ANYTHING":[153]:[153]" YOU CAN THINK OF."
1460 [153]"";:[141]835
1480 :
1490 [141]850
1500 [153]""
1501 [129] X[178]1[164]10:[153]" **PLEASE USE CAPITALS WHERE NEEDED**":[129]X1[178]1[164]50:[130]X1
1502 [153]"ON **PLEASE USE CAPITALS WHERE NEEDED**ON":[129]X1[178]1[164]50:[130]X1:[130]X
1503 [153]" ONONONONONONONONONONONONONONONONONONON"
1504 [153]" (null)HAT IS YOUR CREATURE'S NAME? CLOSECMDCMDCMD ":[153]:[153]" ";
1505 [153] "RIGHT$TS NAME IS ";
1507 UL[178]12:US$[178]"":[141]35
1508 N$[178]UR$
1510 [153]
1520 UL[178]20:[153]" (null)HERE DOES IT COME FROM? CLOSECMDCMDCMD ":[153]:[153]" ";
1522 [153] "(null)HE ";N$;" COMES FROM ";
1525 [141]35:F$[178]UR$
1530 [153]
1540 UL[178]0:[153]" (null)HERE DID YOU DISCOVER IT?":[153]:[153]" ";
1542 [153] "RIGHT$T WAS DISCOVERED AT ";
1545 [141]35:S$[178]UR$
1550 [141]850
1560 [153]" (null)OW TELL ME WHAT IT LOOKS LIKE."
1570 [129] F[178]1[164]7:[135]X:UL[178]X
1580 [153]" (null)HE ";N$;" HAS ";:[141]35:L$(F)[178]UR$
1590 [153]
1600 [130] F
1610 [141]850
1620 [153]" (null)ELL ME WHAT IT LIKES TO DO."
1630 [129] F[178]1[164]4:[135]X:UL[178]X
1635 [131] 17,18,16,16,16,16,16,20,29,17,0
1640 [153]" (null)HE ";N$;" LIKES TO";:[153]" CLOSECMDCMDCMD ";
1645 [141]35:D$(F)[178]UR$
1650 [153]
1660 [130] F
1670 [141]850
1675 UL[178]58:P1$[178]"(null)E INTEND TO "
1680 [153]" (null)HAT WILL YOU DO WITH THE ";N$;"? ":[153]:[153]" ";P1$;
1685 [141]35:P$[178]UR$:UH[178]1
1686 [139] [195](P$)[179][178]24 [167] 1700
1690 P1$[178][200](P$,23):P2$[178][201](P$,[195](P$)[171]23)
1692 [139] [202](P$,24,1)[178]" " [167] 1700
1694 [139][202](P$,25,1)[178]" "[167]P1$[178]P1$[170][200](P2$,1):P2$[178][201](P2$,[195](P2$)[171]1)
1695 [139] [202](P$,25,1)[178]" "[167] 1700
1696 [139] [202](P$,23,1)[179][177]" " [167] 1699
1697 P2$[178][201](P1$,1)[170]P2$:P1$[178][200](P1$,[195](P1$)[171]1)
1698 [137] 1700
1699 P1$[178]P1$[170]"-"
1700 [141]850
1710 [153]" (null)OW GET YOUR PENCIL READY.
1720 PRINT:PRINT" [217]OU ARE GOING TO DRAW A"
1725 PRINT:PRINT"PICTURE OF THE ";N$;"."
1730 PRINT"";:GOSUB835
1735 UG$="[211]TORY":UP=0:UH=1:GOSUB850
1740 IFYZ=1THENOPEN1,4:CMD1:PRINTTAB(30);"[211][206][197][210][196]":PRINTTAB(30);"[163][163][163][163][163]":PRINT
1760 PRINTTAB(TZ);" [212]HE ";N$;" WAS FIRST SEEN AT "
1770 PRINTTAB(TZ);" " S$;"."
1780 PRINTTAB(TZ);" [201]T HAD COME FROM ";F$;"."
1790 PRINTTAB(TZ);" [212]HOSE WHO SAW IT WERE AMAZED. [201]T HAD"
1800 PRINTTAB(TZ);" "L$(1);", ";L$(2);","
1810 PRINTTAB(TZ);" AND ";L$(3);". [201]T ALSO SPORTED"
1820 PRINTTAB(TZ);" "L$(4);" AND ";L$(5);"."
1830 PRINTTAB(TZ);" [197]VERYONE AGREED THAT ITS MOST"
1840 PRINTTAB(TZ);" ASTONISHING FEATURES WERE ITS"
1842 FORX=6TO7
1843 IF LEFT$(L$(X),1)<>"A" THEN 1848
1844 IF MID$(L$(X),2,1)=" " THEN L$(X)=RIGHT$(L$(X),LEN(L$(X))-2):GOTO 1848
1845 IF MID$(L$(X),2,1)<>"N" THEN 1848
1846 IF MID$(L$(X),3,1)=" " THEN L$(X)=RIGHT$(L$(X),LEN(L$(X))-3)
1848 NEXTX
1850 PRINTTAB(TZ);" "L$(6);" AND ";L$(7);"."
1855 IF YZ=1THEN 1885
1860 PRINT" ";
1880 UP=1:UH=1:GOSUB835:GOSUB850
1885 PRINTTAB(TZ);" [211]INCE ITS DISCOVERY, WE HAVE FOUND"
1890 PRINTTAB(TZ);" THAT IT LIKES TO ";D$(1)
1900 PRINTTAB(TZ);" AND TO ";D$(2);"."
1910 PRINTTAB(TZ);" [207]NCE, IT SEEMED TO ";D$(3);","
1920 PRINTTAB(TZ);" ALTHOUGH WE MIGHT HAVE BEEN MISTAKEN."
1930 PRINTTAB(TZ);" [201]N ADDITION, IT APPARENTLY LIKES TO"
1940 PRINTTAB(TZ);" "D$(4);"."
1945 IFLEN(P$)<=24THEN1950
1947 PRINTTAB(TZ);" [215]E INTEND TO ";P1$:PRINTTAB(TZ);" ";P2$;".":GOTO1960
1950 PRINTTAB(TZ);" [215]E INTEND TO ";P$;"."
1960 IF YZ=1 THEN YZ=0:TZ=0:PRINT#1:CLOSE1:GOTO1980
1962 UP=2:GOSUB835:GOSUB850:PRINT" [215]OULD YOU LIKE TO READ THE "
1965 PRINT:PRINT " STORY AGAIN? ";
1970 US$="NYH":UL=1:GOSUB 35
1972 IF UR$="N" THEN1975
1974 IF UR$="Y" THEN1735
1975 UP=3:GOSUB 850:PRINT" [215]OULD YOU LIKE A "
1976 PRINT " PRINT-OUT? ";
1977 US$="NYH":UL=1:UH=1:GOSUB35
1978 IF UR$="Y" THEN YZ=1:TZ=15:GOTO1740
1980 UP=4:GOSUB850:PRINT" [206]OW DRAW A PICTURE OF THE"
1990 PRINT:PRINT" ";N$;"."
2010 GOSUB835:UP=5:GOSUB850:PRINT" [215]OULD YOU LIKE TO CREATE"
2011 PRINT:PRINT" ANOTHER CREATURE? ";
2030 US$="NYH":UL=1:GOSUB35
2040 IFUR$="N"THENRETURN
2050 IFUR$="Y"THEN RESTORE:UP=0:UG$="[211]NERD":GOTO 1480
2060 PRINT"[145][145]";:GOTO2020
2070 PRINT"[147]";:FORQ9=1TO20:PRINT"[166]";:NEXTQ9:PRINT:FORQ8=1TO5
2072 PRINTTAB(10)"[166]"TAB(29)"[166]":NEXTQ8:PRINT"";:FORQ9=1TO20:
2075 PRINT"[166]";:NEXTQ9:PRINT"[145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";SPC(9-(LEN(PG$)/2))PG$;
2077 PRINT"";:FORQ9=1TO24:PRINT" [146]";:NEXTQ9:PRINT:FORQ9=1TO9
2078 PRINTTAB(8)" [146]"TAB(31)" [146]"
2080 NEXTQ9:PRINT"";:FORQ9=1TO24:PRINT" [146]";:NEXTQ9:PRINT
2082 PRINT" NORTH YORK BOARD OF EDUCATION"
2083 PRINT"SOFTWARE LIBRARY":PRINT"1981"
2085 GOSUB 835
2090 GG$=" "
2100 RETURN
2200 PRINT" [198]OR EACH ENTRY PLEASE BE SURE TO"
2210 PRINT" COMPLETE THE SENTENCE."
2220 PRINT" **[197][216][193][205][208][204][197]** [201]F YOU ARE GIVEN "
2230 PRINT" '[212]HE MONSTER HAS', YOU WILL COMPLETE"
2240 PRINT" IT BY SAYING SOMETHING LIKE 'A TAIL'."
2250 PRINT " [201]N THIS WAY YOU HAVE MADE THE"
2260 PRINT" SENTENCE '[212]HE MONSTER HAS A TAIL.'"
2270 PRINT " [193]LSO, BE SURE NOT TO MAKE YOUR "
2275 PRINT " ANSWERS TOO LONG."
2280 GOSUB835:GOSUB850
2290 PRINT " [201]F YOU MAKE A MISTAKE WHILE TYPING"
2300 PRINT " IN AN ENTRY YOU MAY FIX IT BY"
2310 PRINT " PRESSING THE < [196][197][204] > KEY AND HOLDING"
2320 PRINT " IT DOWN. [201]T IS LOCATED IN THE UPPER"
2330 PRINT " RIGHT CORNER OF THE KEYBOARD."
2340 PRINT " **[206][207][212][197]** [201]F YOU HAVE ALREADY PRESSED"
2350 PRINT " THE < [210][197][212][213][210][206] > KEY THEN YOU WILL NOT"
2360 PRINT " BE ABLE TO CORRECT THAT ENTRY."
2370 PRINT " [201]F YOU NEED HELP, PRESS H < [210][197][212][213][210][206]>."
2380 RETURN
2400 PRINT " [212]HIS PROGRAM IS RECOMMENDED FOR"
2410 PRINT " YOUNGER CHILDREN WHO HAVE PARTIALLY"
2420 PRINT " DEVELOPED THEIR WRITING SKILLS."
2430 PRINT " [201]T WILL ENCOURAGE THE FURTHER"
2440 PRINT " DEVELOPEMENT OF THESE SKILLS BY"
2450 PRINT " HELPING TO DEVELOP THE CHILD'S USE"
2460 PRINT " OF DESCRIPTIVE ADJECTIVES AND NOUNS."
2470 PRINT " [211][206][197][210][196][146] IS ALSO RECOMMENDED FOR THE"
2480 PRINT " HIGHLY IMAGINATIVE CHILD."
2490 RETURN